home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / c64-preservation-project / apps / super_c[data_becker_1985](v2_01).nbz / sample.c < prev    next >
Encoding:
Text File  |  2019-04-13  |  816 b   |  38 lines
  1. äç#INCLUDE "STDIO.C"
  2. #DEFINE  ├┴╙┼(┌) CASE '\┌': PRINTF("'\\┌'   ");BREAK
  3. ù
  4. üMAIN()
  5. ÿ█  CHAR C;
  6. ù
  7. ù   PUTC(├╠╥,╙╘─╔╧);
  8. ù   PUTS("─ISPLAY THE VALUES FOR ╦EY PRESSED\N",╙╘─╔╧);
  9. ù
  10. ù   WHILE()
  11. ù   █
  12. ù       C=GETCHAR();
  13.        CHAR C;   /*╘HIS LINE IS IN ERROR*/
  14. ù       PRINTF("├HARACTER: ");
  15. ù
  16. ù       IF((C & 0X7F) >= 0X20)
  17. ù           IF(C=='\\' ▄▄ C=='\'' ▄▄ C=='\"')
  18. ù               PRINTF("'\\%C'    ",C);
  19. ù           ELSE
  20. ù               PRINTF("'%C'    ",C);
  21. ù       ELSE
  22.  ▌ /* ╘HIS LINE IS IN ERROR*/
  23. ù           SWITCH(C)
  24. ù           █
  25. ù               ├┴╙┼(N);
  26. ù               ├┴╙┼(T);
  27. ù               ├┴╙┼(F);
  28. ù               ├┴╙┼(R);
  29. ù               ├┴╙┼(B);
  30. ù               DEFAULT: PRINTF("'\\%O' ",C);BREAK;
  31. ù           ▌
  32. ù
  33. ù
  34. ù       PRINTF("\N┴╙├-├ODE: %3D   0╪%02X   0%-3O\N\N",C,C,C);
  35. ù   ▌
  36. ù▌
  37. û